From: Kenichi Handa <handa@m17n.org>
Date: Fri, 12 Jan 2007 00:54:56 +0000 (+0000)
Subject: (uudecode-decode-region-internal): Make it work in a
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~2879
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=9ece72949db0f54672e3a350ae31adc368e7a878;p=emacs.git

(uudecode-decode-region-internal): Make it work in a
multibyte buffer.
---

diff --git a/lisp/gnus/uudecode.el b/lisp/gnus/uudecode.el
index 616348e899f..6586f715f9c 100644
--- a/lisp/gnus/uudecode.el
+++ b/lisp/gnus/uudecode.el
@@ -205,7 +205,10 @@ If FILE-NAME is non-nil, save the result to FILE-NAME."
 		(insert (apply 'concat (nreverse result)))))
 	  (or (markerp end) (setq end (set-marker (make-marker) end)))
 	  (goto-char start)
-	  (insert (apply 'concat (nreverse result)))
+	  (if enable-multibyte-characters
+	      (mapc #'(lambda (x) (insert (string-to-multibyte x)))
+		    (nreverse result))
+	    (insert (apply 'concat (nreverse result))))
 	  (delete-region (point) end))))))
 
 ;;;###autoload